home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8404.d64 / disk copy v 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  92 lines
  1. 100 REM *** INITIALISIERUNG ***
  2. 110 POKE56,PEEK(46)+14:CLR:RB=255-PEEK(56):PA=1:AN=0:BL=0:NF$=""
  3. 120 PE=PEEK(45)+256*PEEK(46):MR=PE-135:MW=PE-79:MD=PE-24
  4. 130 DIMNF$(140),CF%(140),BL%(140),P%(10),AL%(90),AH%(90)
  5. 140 P%(0)=0:AL%(0)=0:AH%(0)=PEEK(56)-1
  6. 150 :
  7. 160 REM *** MENUE ***
  8. 170 PRINT"[147]"TAB(9)"***** DISK COPY *****":PRINTTAB(10)"VON D.WEINECK 2/84"
  9. 180 PRINT"1.  DIRECTORY
  10. 190 [153]"2.  KOPIEREN
  11. 200 PRINT"3.  FORMATIEREN
  12. 210 [153]"4.  ENDE
  13. 220 PRINTSPC(212)"BITTE WAEHLEN SIE
  14. 230 [161]DC$:DC[178][197](DC$):[139]DC[179]1[176]DC[177]4[167]230
  15. 240 [145]DC[137]910,270,700,670
  16. 250 :
  17. 260 [143] *** KOPIEREN ***
  18. 270 [153]"LOADORIGINALDISKETTE EINLEGEN"
  19. 280 [141]990
  20. 290 [143] *** FILES EINLESEN ***
  21. 300 [159]1,8,0,"$0"
  22. 310 [141]760:[139]NF$[179][177]""[167]340
  23. 320 [139]ST[178]0[167]310
  24. 330 [137]350
  25. 340 BL%(AN)[178][198](BL$[170][199](0)):NF$(AN)[178]NF$:[139]ST[178]0[167]AN[178]AN[170]1:NF$[178]"":[137]310
  26. 350 [160]1:AN[178]AN[171]1:[139]AN[178]0[167][153]"LEERE DISKETTEWAIT":[141]990:[138]
  27. 360 [143] *** KOPIERAUSWAHL ***
  28. 370 [153]"LOADANTWORTEN SIE MIT J/N"
  29. 380 [129]I[178]1[164]AN:[153]BL%(I);[163]5)NF$(I)" ? ";:[151]198,0
  30. 390 [146]198,1:[161]A$:[139]A$[178]"J"[167]CF%(I)[178][171]1:BL[178]BL[170]BL%(I):[153][163]30)" JA WAIT":[137]420
  31. 400 CF%(I)[178]0:[139]A$[179][177]"N"[167]390
  32. 410 [153][163]30)"NEIN"
  33. 420 [139]BL[177]RB[167]P%(PA)[178]I[171]1:PA[178]PA[170]1:BL[178]BL%(I)
  34. 430 [130]I:P%(PA)[178]AN
  35. 440 [139]BL[178]0[167]640
  36. 450 [143] *** KOPIE ***
  37. 460 [153]"LOADKOPIE IN ARBEIT"
  38. 470 [129]I[178]1[164]PA
  39. 480 [129]RW[178]0[164]1:NR[178]0:[139]RW[178]1[167][153]"ZIELDISK EINLEGEN":[141]990
  40. 490 [129]J[178]P%(I[171]1)[170]1[164]P%(I)
  41. 500 [139][168]CF%(J)[167][130]J:[137]540
  42. 510 NF$[178]NF$(J):[153]BL%(J);[163]5)NF$:[141]570:[139]ST[178]0[176]ST[178]64[167]530
  43. 520 [141]880:[138]
  44. 530 [130]J
  45. 540 [130]RW:[139]I[178]PA[167]640
  46. 550 [153]"ORIGINALDISK EINLEGEN":[141]990
  47. 560 [130]I:[138]
  48. 570 [139]RW[178]1[167]610
  49. 580 [159]1,8,5,NF$[170]",R":[151]252,0:[151]253,AH%(NR)[170]1
  50. 590 [158]MR:NR[178]NR[170]1:AL%(NR)[178][194](254):AH%(NR)[178][194](255)
  51. 600 [160]1:[142]
  52. 610 [159]1,8,5,NF$[170]",W":[151]252,0:[151]253,AH%(NR)[170]1
  53. 620 [151]254,AL%(NR[170]1):[151]255,AH%(NR[170]1):[158]MW
  54. 630 NR[178]NR[170]1:[160]1:[142]
  55. 640 [153]"KOPIE FERTIG !
  56. 650 GOSUB990:RUN
  57. 660 REM *** ENDE ***
  58. 670 POKE56,160:END
  59. 680 :
  60. 690 REM *** FORMATIEREN ***
  61. 700 INPUT"[147]DISKNAME";FO$:ID$="":INPUT"DISK-ID";ID$:IFID$<>""THENID$=","+ID$
  62. 710 FO$=FO$+ID$
  63. 720 PRINT"BITTE ZIELDISKETTE EINLEGEN"
  64. 730 GOSUB990
  65. 740 OPEN1,8,15,"N:"+FO$:CLOSE1
  66. 750 GOSUB880:GOTO170
  67. 760 REM DIRECTORY EINLESEN
  68. 770 GET#1,A$,B$
  69. 780 GET#1,BL$,B$
  70. 790 GET#1,A$
  71. 800 GET#1,B$:IFST<>0THENRETURN
  72. 810 IFB$<>CHR$(34)THEN800
  73. 820 GET#1,B$:IFB$<>CHR$(34)THENNF$=NF$+B$:GOTO820
  74. 830 GET#1,B$:IFB$=CHR$(32)THEN830
  75. 840 NF$=NF$+","+B$:FORI=0TO1:GET#1,B$:NF$=NF$+B$:NEXT
  76. 850 GET#1,B$:IFB$<>""THEN850
  77. 860 RETURN
  78. 870 REM *** FEHLER-AUSGABE ***
  79. 880 OPEN15,8,15:INPUT#15,A,B$,C,D:PRINTA;B$;C;D:CLOSE15:GOSUB990:RETURN
  80. 890 :
  81. 900 REM *** DIRECTORY ***
  82. 910 PRINT"[147]"
  83. 920 OPEN3,8,0,"$0":GET#3,A$,A$
  84. 930 GET#3,A$,A$,BL$,BH$
  85. 940 IFA$=""THENCLOSE3:GOTO980
  86. 950 BL$=BL$+CHR$(0):BH$=BH$+CHR$(0)
  87. 960 PRINT256*ASC(BH$)+ASC(BL$);
  88. 970 SYSMD:GOTO930
  89. 980 GOSUB 990:GOTO170
  90. 990 PRINTSPC(69)"[164][164][164][164][164][164][164]":PRINTSPC(29)"*TASTE*[146]"
  91. 1000 POKE198,0:WAIT198,1:GETA$:RETURN
  92.